Workplace Effectiveness: Critical Thinking Skills/Workplace Effectiveness: Critical Thinking Skills.iso/pc/Files/Define.dxr/00029_rollover handlers.ls

Text File | 1998-09-15 | 793 b | 37 lines

global balloonSprite

on spriteRollers
  case the rollOver of
    2:
      showBalloon("v")
    3:
      showBalloon("w")
    4:
      showBalloon("x")
    5:
      showBalloon("y")
    otherwise:
      set the loc of sprite balloonSprite to point(-2222, -2222)
  end case
end

on showBalloon artName
  set the member of sprite balloonSprite to member (artName && "balloon")
  set the loc of sprite balloonSprite to point(320, 240)
end

on showRoller thisSprite, artName
  puppetSprite(thisSprite, 1)
  set the member of sprite thisSprite to member (artName && "roll")
end

on rollSound thisSprite, thisName
  global gLastRoller
  if thisSprite <> gLastRoller then
    if not soundBusy(1) then
      puppetSound(thisName && "sound")
      set gLastRoller to thisSprite
    end if
  end if
end